home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Zone Tutorial / Structure Examples / 6. Zonex < prev   
Encoding:
Text File  |  1998-10-26  |  724 b   |  33 lines  |  [TEXT/ScoM]
  1. ;  ZONEX - individual zone support example
  2.  
  3. (def-zone 
  4.   test '(1/2 1/4 1/1) ; lengths of each zone
  5. )
  6.  
  7. (def-tonality
  8.   test (activate-tonality (major c 4) (chromatic c 5)) 
  9. )
  10.  
  11. (def-symbol 
  12.   test '((a b c) (l m n) (-a -b -c))
  13. ; this pattern is played around and around through zones
  14. )
  15.  
  16. (def-length 
  17.   test '((1/16 1/32 1/32) (1/32) (1/8 1/16)) 
  18. ; this pattern restarts when the zone changes
  19. )
  20.  
  21. (def-velocity 
  22.   test '((100 101 102) (45 52 34) (80 81 82)) 
  23. ; each zone has its own pattern (that goes round and round).
  24. )
  25.  
  26. ; If there are more zones than sublists in length, velocity and symbol
  27. ; definitions then the whole list of sublists is repeated over and over.
  28.  
  29. (compile-instrument-p "ccl;output:" "multizones"
  30.   test
  31. )
  32.  
  33.